home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / compress / zip2zi31.zip / ZIP2ZIPD.BAT < prev    next >
DOS Batch File  |  1993-05-31  |  2KB  |  74 lines
  1. @Echo off
  2. Rem Zip2zipD.Bat (Called by Zip2zipC.Bat)
  3. Rem %1 Starting Drive & Sub Dir (D:\SubDir\)
  4. Rem %2 The Zip Within A Zip (In \Z_C) To Do Yet  includes %1Z_B\Z_C\xx.zip
  5. Rem              ..Add/Change -options for Strip/Add Comment File, Logo etc.
  6.  
  7. Echo            Zip2ZipD Executing on %2.
  8.  
  9.    IF Exist %1Z_B\CNZL.FLG   Set CNZL=Y
  10.    IF Exist %1Z_B\CNZL.FLG   GoTo Done
  11.  
  12.    IF NOT "%DONE_C%"==""     GoTo End
  13.  
  14.    PKUNZIP %2 -t >Nul
  15.    IF Errorlevel 1 GoTo Error
  16.  
  17.    Call ZIP2-ZNP.BAT %2
  18.    IF "%FSIZE%"==""          GoTo MajorError
  19.    IF "%FSIZE%"=="0"         GoTo UN_ZIP
  20.       Set   CNZL=Y
  21.       Echo %CNZL% >%1Z_B\CNZL.FLG
  22.       Echo     %2 Is Too Deep..And Contains a .ZIP file In Path.>>%1ZIP2ZIP.LOG
  23.       Echo     %2 Failed. See ZIP2ZIP.LOG
  24.       GoTo Done
  25.  
  26. :UN_ZIP
  27.    PKunZip  %2  -d -Jhrs %1Z_B\Z_C\Z_D
  28.    IF Errorlevel 1              GoTo Error
  29.    IF Exist %1Z_B\Z_C\Z_D\*.ZIP GoTo ZIP_IN
  30.  
  31. Rem =============================================================
  32.      PKZip  %2  -k -mrp -ex -Jhrs -wHS  %1Z_B\Z_C\Z_D\*.*
  33.      IF Errorlevel 1         GoTo Error
  34.        Echo           %2 Converted ok at 3rd level
  35.        Echo           %2 Converted ok at 3rd level              >>%1ZIP2ZIP.LOG
  36.        GoTo Done
  37. Rem =============================================================
  38.  
  39. :ZIP_IN
  40.    Echo         %2 Is Nested Too Deep To Process..! (3rd Lev)   >>%1ZIP2ZIP.LOG
  41.    Echo         %2 Is Nested Too Deep To Process..! (3rd Lev)
  42.    Set   CNZL=Y
  43.    Echo %CNZL%  >%1Z_B\CNZL.FLG
  44.    GoTo Done
  45.  
  46. :MajorError
  47.    Echo Major Logic Error. Do NOT Continue.
  48.    Set   CNZL=Y
  49.    Echo %CNZL% >%1Z_B\CNZL.FLG
  50.    IF "%Safety%"==""   GoTo End
  51.    Echo Cancel With ^C (Control C)...Or...
  52.    Pause
  53.    Set Safety=
  54.    GoTo End
  55.  
  56. :Error
  57.    Echo      %2 Failed... PKZIP or PKUNZIP Encountered an Error in 3rd Lev)>>%1\ZIP2ZIP.LOG
  58.    Set   CNZL=Y
  59.    Echo %CNZL% >%1Z_B\CNZL.FLG
  60.  
  61. :Done
  62.    Call ZIP2ZMOP.BAT %1 Z_B\Z_C  Z_D %CNZL%
  63.  
  64.    Echo %2 >>#AT_C.
  65.    Type #AT_C. | FIND /C ".ZIP" >#DONE_C.
  66.    Echo N| COMP #2DO_C. #DONE_C. | FIND "OK" >ZIP2-FSZ.
  67.    CALL ZIP2-FSZ.BAT
  68.    IF "%FSIZE%"==""              GoTo MajorError
  69.     IF "%FSIZE%"=="0"            GoTo End
  70.      Set DONE_C=Y
  71.  
  72. :End
  73.  
  74.